home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h4.d64 / Kcolour test (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  946b  |  26 lines
  1. 0 REM* ADAPTED BY ROGER D. BURGE
  2. 5 REM* 'KOALA PAD' IS A REGISTERED TRADEMARK OF KOALA TECHNOLOGIES CORPORATION
  3. 10 PRINT"[147][144] COMMODORE 64 KOAL PAD (TM) COLOUR TEST"
  4. 15 S$="":CD$="[144][159][156][158][129][149][150][151][152][153][154][155]":G=53281:POKEG,1:POKEG-1,1
  5. 20 DATA "[144]BLACK","WHITE","RED"
  6. 25 DATA "[159]CYAN","[156]PURPLE","GREEN"
  7. 30 DATA "BLUE","[158]YELLOW","[129]ORANGE"
  8. 35 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
  9. 40 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
  10. 45 DATA "[155]GRAY 3"
  11. 50 FORX=.TO3:FORY=1TO5:FORZ=1TO4
  12. 55 PRINT" "MID$(CD$,X*4+Z,1)"        [146] ";
  13. 60 NEXT:NEXT
  14. 65 IFX<>3THENPRINT" BUTTON #1-SCREEN COLOUR/BUTTON #2-QUIT
  15. 70 [130]
  16. 75 [153]"";:[129]X[178]1[164]4:[135]A$,B$,C$,D$
  17. 80 [153]"";:[139]X[178]1[167][153]"ON";
  18. 85 [153]""A$,""B$,""C$,""D$
  19. 90 [130]X:[153]"STOP BUTTON #1-SCREEN COLOUR/BUTTON #2-QUIT
  20. 95 IF(PEEK(56321)AND12)=8THEN110
  21. 100 IF(PEEK(56321)AND12)=4THEN115
  22. 105 GOTO95
  23. 110 POKEG,PEEK(G)+1AND15:FORT=.TO500:NEXT:GOTO95
  24. 115 POKEG,1:OPEN15,8,15,"I0":CLOSE15:PRINT"[147]L[207]"CHR$(34)"[139]"CHR$(34)",8"
  25. 120 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:END
  26.